home *** CD-ROM | disk | FTP | other *** search
/ Get a Grip Tennis by Wilson / Get a Grip Tennis by Wilson.iso / pc / main.dxr / 00001_Check verison.ls next >
Encoding:
Text File  |  2003-08-12  |  685 b   |  36 lines
  1. global gMonitor, gSettings
  2.  
  3. on isAcrobatReader4Present
  4.   x = PDF_AcrobatInfo()
  5.   repeat with i = 1 to count(x)
  6.     app = x[i][#appname]
  7.     if app = "Reader" then
  8.       ver = x[i][#version]
  9.       if (ver.char[1] = "4") or (ver.char[1] = "5") or (ver.char[1] = "6") then
  10.         return 1
  11.       end if
  12.     end if
  13.   end repeat
  14.   return 0
  15. end
  16.  
  17. on enterFrame me
  18.   good = 1
  19.   if keyPressed("q") and keyPressed("t") then
  20.     good = 0
  21.     go(label("winQT"))
  22.   end if
  23.   plat = the platform
  24.   qt = QuickTimeVersion()
  25.   if plat contains "Macintosh" then
  26.   else
  27.     if qt < 4.0 then
  28.       good = 0
  29.       go(label("winQT"))
  30.     end if
  31.   end if
  32.   if good = 1 then
  33.     go(label("pass"))
  34.   end if
  35. end
  36.